home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_B.d64 / viza->fontm. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.2 KB  |  288 lines
  1. 20 nu$=chr$(0)
  2. 50 printf1$"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 51 print"[221]                                [221]"
  4. 52 print"[221]                                [221]"
  5. 53 print"[221]  filetrans viza -> fontmaster  [221]"
  6. 54 print"[221]                                [221]"
  7. 55 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  8. 80 gosub 1000
  9. 90 fori=1to18:print:next
  10. 91 :
  11. 92 :
  12. 93 :
  13. 94 :
  14. 95 :
  15. 96 :      rem filenamen holen
  16. 97 :
  17. 98 :
  18. 99 :
  19. 100 open15,8,15,"i"
  20. 120 gosub2000:input"read filename:";n$
  21. 130 nl$=n$+",p,r"
  22. 140 open2,8,2,nl$
  23. 150 input#15,f1,f$,f2,f3
  24. 160 print:printtab(5)f$;:iff1=0then 200
  25. 161 close2
  26. 170 gosub 3100
  27. 190 goto120
  28. 200 print:ns$=left$(n$,13)+".fm"
  29. 210 gosub2000:print"save filename:  "ns$
  30. 220 input"[145]";ns$
  31. 230 nw$="0:"+ns$+",s,w"
  32. 240 open3,8,3,nw$
  33. 250 input#15,f1,f$,f2,f3
  34. 260 printtab(5)""f$;:iff1=0then 300
  35. 261 close3
  36. 263 iff1=63then print"  replace?";:gosub3000:ifc=0then 200
  37. 270 gosub 8000
  38. 291 :
  39. 292 :
  40. 293 :
  41. 294 :
  42. 295 :    rem header zusammenstellen
  43. 296 :
  44. 297 :
  45. 298 :
  46. 299 :
  47. 300 gosub 2000:print"choose header, please"
  48. 305 hd$=chr$(97)+"uo10"
  49. 306 gosub 2000:print"justification on";
  50. 307 gosub 3000:ifc=1thenhd$=hd$+":js"
  51. 308 print tab(5)"proportional on ";
  52. 309 gosub 3000:ifc=1thenhd$=hd$+":py"
  53. 310 a=72:gosub 2000:print"paperlength      "a"[157][157][157][157][157]";
  54. 311 input a:gosub2100:hd$=hd$+":pl"+a$
  55. 312 a=6:printtab(5)"lines per inch   "a"[157][157][157][157]";
  56. 313 input a:gosub2100:hd$=hd$+":ls"+a$
  57. 316 a=0:gosub 2000:print"top margin       "a"[157][157][157][157]";
  58. 317 input a:gosub2100:hd$=hd$+":tm"+a$
  59. 318 a=10:print tab(5)"bottom margin    "a"[157][157][157][157][157]";
  60. 319 input a:gosub2100:hd$=hd$+":bm"+a$
  61. 320 hd$=hd$+chr$(13)
  62. 321 :
  63. 322 :
  64. 323 :
  65. 324 :
  66. 325 :     rem vw-header eleminieren
  67. 326 :
  68. 327 :
  69. 328 :
  70. 329 :
  71. 330 gosub 2000:print"working..."
  72. 331 printtab(5)"please wait !"
  73. 335 b$=chr$(241)
  74. 340 get#2,a$:ifst<>0then 500
  75. 341 if a$<>b$ then340
  76. 350 gosub 2000:print"writing fm header...  ";
  77. 351 print#3,hd$;:ifst<>0then 500
  78. 362 :
  79. 363 :
  80. 364 :
  81. 365 :       rem transfer-schleife
  82. 366 :
  83. 367 :
  84. 368 :
  85. 400 sys 49152,a,220,219,230,235,241
  86. 410 onagosub 550,750,600,800,900
  87. 420 ifst=0then400:rem end of file?
  88. 490 :
  89. 491 :
  90. 492 :
  91. 495 :      rem   ende
  92. 496 :
  93. 497 :
  94. 498 :
  95. 500 input#15,f1,f$,f2,f3
  96. 503 gosub2000:print"file closed"
  97. 505 printtab(5)"disk-status:"f1;f$
  98. 506 close2:close3:close15
  99. 510 gosub 2000
  100. 512 print"more files";
  101. 513 gosub3000
  102. 520 ifc=0 then end
  103. 530 goto100
  104. 540 :
  105. 541 rem *******************************
  106. 542 :
  107. 543 :
  108. 544 :
  109. 545 :       rem cr ausgeben
  110. 546 :
  111. 547 :
  112. 550 tz=0:iflm=la then 580
  113. 555 lm=la
  114. 560 a=lm:gosub 2100:lm$=a$
  115. 570 print#3,chr$(13)chr$(97)"in+0:lm"lm$;
  116. 580 print#3,chr$(13);:return
  117. 592 :
  118. 593 :
  119. 594 :       rem formatzeile holen
  120. 595 :
  121. 596 :
  122. 600 gosub2000:print"checking format line...  ";
  123. 610 l=2:lm=l-1:tb=-1:tz=0
  124. 615 for l=2to255
  125. 620 get#2,a$
  126. 621 v=asc(a$+nu$):if st then500
  127. 630 if v=220 then 700:rem cr
  128. 640 if v=219 then tb=tb+1:ta(tb)=l:iftb=0then lm=l:rem tab setzen+lm
  129. 650 next l
  130. 697 :
  131. 698 :     rem formatzeile schreiben
  132. 699 :
  133. 700 la=lm:a=lm:gosub2100:lm$=a$
  134. 705 a=l-2:gosub2100:rm$=a$
  135. 710 print#3,chr$(97)"lm"lm$;
  136. 715 print#3,chr$(58)"rm"rm$;chr$(13);
  137. 720 print"ok":l=255:nextl
  138. 725 if tb=0then ta(1)=lm+1
  139. 726 if tb=-1then ta(1)=1
  140. 730 return
  141. 740 :
  142. 741 :
  143. 742 :      rem tab
  144. 743 :
  145. 744 :
  146. 750 tz=tz+1:iftz>tb then tz=1:iftb>0then print#3,chr$(13);
  147. 760 a=ta(tz):gosub2100:ta$=a$
  148. 770 print#3,chr$(97)"ta"ta$;chr$(124);
  149. 780 return
  150. 790 :
  151. 791 :
  152. 792 :      rem indent
  153. 793 :
  154. 794 :
  155. 800 rem
  156. 805 tz=tz+1:iftz>tb then tz=1:iftb>0then print#3,chr$(13);
  157. 810 a=lm:lm=ta(tz):in=a-lm
  158. 820 a=lm:gosub2100:lm$=a$
  159. 830 in$=str$(in)
  160. 840 print#3,chr$(97)"lm"lm$":ta"lm$":in"in$;chr$(124);
  161. 850 return
  162. 892 :
  163. 893 :
  164. 894 :      rem next page
  165. 895 :
  166. 896 :
  167. 900 print#3,chr$(97)"np":return
  168. 986 :
  169. 987 :
  170. 988 rem *******************************
  171. 989 :
  172. 990 :
  173. 991 :
  174. 992 :
  175. 993 :
  176. 994 :     rem init
  177. 995 :
  178. 996 :
  179. 997 :
  180. 998 :
  181. 999 :
  182. 1000 dim n(255),ta(255)
  183. 1010 f1$="[152]":f2$=""
  184. 1020 k1$="":k2$=""
  185. 1021 kd$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"+chr$(13)
  186. 1022 kd$=kd$+chr$(13)+""+kd$+f1$+"[145][145][145][145][145][145]"
  187. 1023 kl$="                                       "+chr$(13)
  188. 1025 fori=1to5:km$=km$+kl$:next
  189. 1030 km$=km$+"[145][145][145][145]     "
  190. 1100 fori=49152 to 49322:reada:pokei,a
  191. 1110 next
  192. 1190 v=49408
  193. 1200 fori=0to31:pokev+i,i+64:next
  194. 1210 fori=32to63:pokev+i,i:next
  195. 1211 fori=65to95:pokev+i,i+128:next
  196. 1220 pokev+58,62
  197. 1221 pokev+59,60
  198. 1222 pokev+101,59 :rem ae klein
  199. 1223 pokev+118,58 :rem oe klein
  200. 1224 pokev+120,64 :rem ue klein
  201. 1225 pokev+121,93 :rem ae gross
  202. 1226 pokev+122,91 :rem oe gross
  203. 1227 pokev+123,127:rem ue gross
  204. 1228 pokev+124,92 :rem ss
  205. 1229 pokev+220,13 :rem return
  206. 1230 pokev+237,234:rem fett
  207. 1231 pokev+238,251:rem underline
  208. 1232 pokev+239,245:rem superscript
  209. 1233 pokev+236,246:rem subscript
  210. 1900 return
  211. 1987 :
  212. 1988 :
  213. 1989 :
  214. 1990 :
  215. 1991 :
  216. 1992 :
  217. 1993 :
  218. 1994 :    rem ausgabe wechseln
  219. 1995 :
  220. 1996 :
  221. 1997 :
  222. 1998 :
  223. 1999 :
  224. 2000 rem kasten
  225. 2010 ifkf=0thenprintf1$k1$k2$kd$ k1$f2$kd$km$;:kf=1:return
  226. 2020 ifkf=1thenprintf1$k1$kd$ k1$k2$f2$kd$km$;
  227. 2030 kf=0:return
  228. 2090 :
  229. 2091 :
  230. 2092 :
  231. 2093 :
  232. 2094 :
  233. 2095 :     rem a in a$ wandeln
  234. 2096 :
  235. 2097 :
  236. 2098 :
  237. 2099 :
  238. 2100 a$=str$(a):ifa<0then return
  239. 2110 a$=right$(a$,len(a$)-1)
  240. 2120 return
  241. 2990 :
  242. 2991 :
  243. 2992 :
  244. 2993 :
  245. 2994 :
  246. 2995 :     rem tastenabfrage get y/n
  247. 2996 :
  248. 2997 :
  249. 2998 :
  250. 2999 :
  251. 3000 print" <y>[157][157]";
  252. 3020 gosub 3100
  253. 3030 ifa$="y"ora$=chr$(13) then c=1:a$="y":goto3060
  254. 3040 ifa$<>"n"then3020
  255. 3050 c=0
  256. 3060 print a$
  257. 3070 return
  258. 3080 :
  259. 3081 :
  260. 3082 :
  261. 3100 poke204,0
  262. 3110 geta$:ifa$=""then3110
  263. 3120 poke204,1:return
  264. 7990 :
  265. 7991 :
  266. 7992 :
  267. 7993 :
  268. 7994 :
  269. 7995 :    rem  file scratchen
  270. 7996 :
  271. 7997 :
  272. 7998 :
  273. 7999 :
  274. 8000 :
  275. 8030 no$="s0:"+ns$:print#15,no$
  276. 8040 input#15,f1,f$,f2,f3:iff1<>1then print f$:goto500
  277. 8050 open3,8,3,nw$:return
  278. 8051 data169,0,141,0,195,32,156,192,176,33,32,139,176,133,73,132,74,32,156
  279. 8052 data192,176,21,238,0,195,208,3,76,8,175,32,158,183,138,174,0,195,157
  280. 8053 data0,195,76,17,192,32,204,255,169,0,133,252,162,2,32,198,255,32,207
  281. 8054 data255,174,0,195,240,8,221,0,195,240,10,202,208,246,230,252,164,252
  282. 8055 data153,0,194,134,251,166,144,134,36,208,9,165,251,208,5,166,252,232
  283. 8056 data208,216,165,252,240,37,32,204,255,162,3,32,201,255,160,0,200,185
  284. 8057 data0,194,170,189,0,193,32,210,255,165,144,208,26,196,252,208,237,165
  285. 8058 data251,208,4,165,36,240,163,169,0,164,251,32,145,179,165,14,32,194,169
  286. 8059 data165,36,133,144,32,204,255,96,32,121,0,201,44,240,2,56,96,32,115,0
  287. 8060 data24,96,96
  288.